﻿Imports System.Collections
Namespace LogSearch
    Public Structure LTIItem
        Dim Time As String
        Dim User As String
        Dim Message As String
        Dim LogDate As String
        Dim Channel As String
    End Structure
    Public Class LTICollection
        Inherits CollectionBase
        Event NewItemAdded(ByVal Item As LTIItem)
        Default Public Property Item(ByVal index As Integer) As LTIItem
            Get
                Return CType(List(index), LTIItem)
            End Get
            Set(ByVal Value As LTIItem)
                List(index) = Value
            End Set
        End Property
        Public Function Add(ByVal value As LTIItem) As Integer
            '      Global1.DBL.AddItem("IC_Add: " & value.Title & " EncType: " & value.EncType, FMLogger.Core.DebugLogging.MessageType.General)
            Return List.Add(value)
        End Function
        Public Function IndexOf(ByVal value As LTIItem) As Integer
            Return List.IndexOf(value)
        End Function
        Public Sub Insert(ByVal index As Integer, ByVal value As LTIItem)
            List.Insert(index, value)
        End Sub
        Public Sub Remove(ByVal value As LTIItem)
            List.Remove(value)
        End Sub
        Public Function Contains(ByVal value As LTIItem) As Boolean
            Return List.Contains(value)
        End Function
        Public Property GetItemCount() As Integer
            Get
                Return GetItemCount
            End Get
            Set(ByVal Value As Integer)
                'GetItemCount = Value
            End Set
        End Property
        '  Function Find(ByVal itemTitle As String) As LTIItem
        ' Dim ItemReturn As LTIItem = Nothing
        ' Dim Item As New LTIItem
        '     For Each Item In Me.List
        '        If Item.Title.Equals(itemTitle) Then
        ''            ItemReturn = Item
        '            Exit For
        '       End If
        ''   Next
        '   Return ItemReturn
        'End Function
        ''  Function FeedFind(ByVal itemTitle As String) As Boolean
        'Dim ItemReturn As LTIItem = Nothing
        'Dim Item As New LTIItem
        '   For Each Item In Me.List
        ''       If Item.FeedName.Equals(itemTitle) Then
        '           Return True
        '      End If
        '  Next
        'End Function
    End Class
End Namespace